library(ggplot2)
library(ggpubr)
library(CDM)
library(boot)
library(tidyverse)
library(dummy)
library(stringi)
library(stringr)
rm(list = ls())
Q_from_book <- read_csv("../data//FirstYearProject/final_result_similar.csv")
Parsed with column specification:
cols(
Question = [31mcol_character()[39m,
Option1 = [31mcol_character()[39m,
Option2 = [31mcol_character()[39m,
Option3 = [31mcol_character()[39m,
Option4 = [31mcol_character()[39m,
Answer = [31mcol_character()[39m,
`Learning Objective` = [31mcol_character()[39m,
Topic = [31mcol_character()[39m,
`Difficulty Level` = [31mcol_character()[39m,
`Skill Level` = [31mcol_character()[39m,
`APA Learning Objective` = [31mcol_character()[39m
)
glimpse(Q_from_book)
Observations: 1,006
Variables: 11
$ Question [3m[38;5;246m<chr>[39m[23m "Which of the following is an example of social influence?", "Which of the following is an example of a direct persuasion attempt?", "Not al...
$ Option1 [3m[38;5;246m<chr>[39m[23m "a. You feel guilty because you lied to your trusting professor about your assignment.", "a. A bully threatens Billy and steals his lunch mo...
$ Option2 [3m[38;5;246m<chr>[39m[23m "b. When you get hungry, you have trouble concentrating.", "b. Ramona works hard in school to make her mother proud.", "b. A senatorial cand...
$ Option3 [3m[38;5;246m<chr>[39m[23m "c. You didn\u0092t do well on the test because you stayed up all night cramming.", "c. Marianne thinks of her ex-boyfriend and becomes sad....
$ Option4 [3m[38;5;246m<chr>[39m[23m "d. You almost fall asleep at the wheel, so you pull off the road to take a short nap.", "d. Jason moves from New York to Atlanta and picks ...
$ Answer [3m[38;5;246m<chr>[39m[23m "A", "A", "D", "C", "A", "C", "C", "B", "D", "D", "C", "B", "C", "A", "B", "C", "D", "D", "D", "C", "A", "B", "D", "B", "D", "B", "D", "B", ...
$ `Learning Objective` [3m[38;5;246m<chr>[39m[23m "1.1 Define social psychology and distinguish it from other disciplines.", "1.1 Define social psychology and distinguish it from other disci...
$ Topic [3m[38;5;246m<chr>[39m[23m "Defining Social Psychology", "Defining Social Psychology", "Defining Social Psychology", "Defining Social Psychology", "Defining Social Psy...
$ `Difficulty Level` [3m[38;5;246m<chr>[39m[23m "Moderate", "Moderate", "Moderate", "Moderate", "Easy", "Moderate", "Moderate", "Moderate", "Moderate", "Easy", "Difficult", "Difficult", "E...
$ `Skill Level` [3m[38;5;246m<chr>[39m[23m "Understand the Concepts", "Understand the Concepts", "Understand the Concepts", "Understand the Concepts", "Remember the Facts", "Understan...
$ `APA Learning Objective` [3m[38;5;246m<chr>[39m[23m "1.1 Describe key concepts, principles, and overarching themes in psychology.", "1.1 Describe key concepts, principles, and overarching them...
Q_from_book
NA
learning_obj <- Q_from_book %>% distinct(`Skill Level`, `Difficulty Level` ) %>% mutate(lo_id = row_number())
learning_obj
NA
Q_pre <- Q_from_book %>% inner_join(learning_obj) %>% select(Question, `Skill Level`, `Difficulty Level`, lo_id) %>% mutate(temp = str_trim(str_replace_all(Question, "_|\\.", "")))
Joining, by = c("Difficulty Level", "Skill Level")
Q_pre
NA
Q.distinct.id <- read_csv("../data/FirstYearProject/Q_distinct_id.csv")
Parsed with column specification:
cols(
value = [31mcol_character()[39m,
temp = [31mcol_character()[39m,
Question = [31mcol_character()[39m,
`Learning Objective` = [31mcol_character()[39m,
lo_id = [32mcol_double()[39m,
Q_UNIQUE_ID = [32mcol_double()[39m
)
Q.distinct.id <- Q.distinct.id %>% mutate(temp = str_trim(str_replace_all(value, "_|\\.", "")))
Q.distinct.id
Q_pre %>% inner_join(Q.distinct.id, by = "temp")
NA
```r
Q_pre %>% anti_join(Q.distinct.id) %>% distinct(Question, temp) %>% select(-temp ) %>% write_csv(\missing.csv\)
<!-- rnb-source-end -->
<!-- rnb-output-begin eyJkYXRhIjoiSm9pbmluZywgYnkgPSBcXHRlbXBcXFxuIn0= -->
Joining, by =
```